home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 August: Tool Chest / Dev.CD Aug 98 TC.toast / Tool Chest / Testing & Debugging / Mac OS Development Toolkit / Automation Essentials 2.3.0 / • Other Stuff / Scripting Aids / Script Templates / TestedFunctionsSummary() < prev   
Encoding:
Text File  |  1998-03-19  |  2.3 KB  |  70 lines  |  [TEXT/MPS ]
  1. ######################################################################
  2. #            TestedFunctionsSummary()
  3. #=====================================================================
  4. # Author:        CJ
  5. # Description:    Outputs a summary to the log file of the standard 
  6. #                functions tested in a specific application test script.
  7. # Parameters:    none.
  8. # globals:        gTestedFunctionsList - list of boolean values and one or more 
  9. #                optional strings for application specific functionality
  10. #                Elements:    1 -  Text
  11. #                            2 -  Draw
  12. #                            3 -  Window
  13. #                            4 - <string> for application specific functionality
  14. #                Note: if there is more than one application specific function 
  15. #                description there can be as many strings after the 3rd element 
  16. #                as necessary, i.e. there can be 4th, and 5th, and 6th, etc. elements
  17. # Returns:        Nothing
  18. # Examples:        TestedFunctionsSummary({1,1,1,"Database record creation tested"})
  19. # Common Use:    Called using gDoCloseAppHook3
  20. #=====================================================================
  21. # History:
  22. #    5/16/96        PF                    Changed to use global gTestedFunctionsList instead of parameter
  23. #    4/29/96        CJ    Created
  24. ######################################################################
  25. TASK TestedFunctionsSummary()
  26. begin
  27.  
  28.     global gAppTitle, gAppVersion, gTestedFunctionsList;
  29.     
  30. logstr ("********* {gAppTitle} {gAppVersion} Tested Functions Summary ***********");
  31. if (gTestedFunctionsList)
  32. begin
  33.     println ("∂t∂t∂t∂t********* gTestedFunctionsList := {gTestedFunctionsList}");
  34.     
  35.     if (gTestedFunctionsList[1])
  36.         Println ("∂t∂t∂t∂t∂t∂tText∂t∂t∂t∂ton");
  37.     else
  38.         Println ("∂t∂t∂t∂t∂t∂tText∂t∂t∂t∂toff");
  39.     
  40.     if (gTestedFunctionsList[2])
  41.         Println ("∂t∂t∂t∂t∂t∂tDraw∂t∂t∂t∂ton");
  42.     else
  43.         Println ("∂t∂t∂t∂t∂t∂tDraw∂t∂t∂t∂toff");
  44.  
  45.     if (gTestedFunctionsList[3])
  46.         Println ("∂t∂t∂t∂t∂t∂tWindow∂t∂ton");
  47.     else
  48.         Println ("∂t∂t∂t∂t∂t∂tWindow∂t∂toff");
  49.  
  50.     if (gTestedFunctionsList[4])
  51.     begin
  52.         Println ("∂t∂t∂t∂t∂t∂tApplication Specific Functionality");
  53.         otherFunctions := card(gTestedFunctionsList) - 3;
  54.         thisFunc := 1;
  55.         while (thisFunc <= otherFunctions)
  56.         begin
  57.             Println ("∂t∂t∂t∂t∂t∂t∂t∂t{gTestedFunctionsList[thisFunc+3]}");
  58.             thisFunc := thisFunc + 1;
  59.         end;
  60.     end;
  61. end;
  62. else
  63.     println ("∂t∂t∂t∂t!!!!! No list was provided for TestedFunctionsSummary");
  64.  
  65. println ("∂t∂t∂t∂t********************** End of Summary *************************************");
  66.     
  67. end; #TestedFunctionsSummary()
  68.  
  69.  
  70.